home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 71.bas < prev    next >
BASIC Source File  |  1995-01-06  |  10KB  |  167 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5 : PRINT "TRUMP" : PRINT "written TAKAO KUSHIDA"
  4. 40 S$="%CQ8T130" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  5. 50 '
  6. 60 '
  7. 70 '
  8. 80 AL$="@25V9O5L16Q1" : AR$=AL$+"V8" : AC$=AL$+"V2"
  9. 90 A1L$=AL$+"R4    Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C <R4Q8D4 "
  10. 100 A1R$=AR$+"R4   <Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1A <R4Q8B4 "
  11. 110 A1C$=AC$+"R4R8  Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C<<R8Q8F4 "
  12. 120 A1E$=AL$+"R4    Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1CQ2RC32C#32D FRRF"
  13. 130 A1F$=AR$+"R4   <Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1AQ2RA32A#32B>CRRC"
  14. 140 A1G$=AC$+"R4R8  Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1CQ4RC32C#32D FR  "
  15. 150 A1H$=AL$+"   <RRBR> Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C <R4Q8D4 "
  16. 160 A1I$=AR$+"   <RRGR  Q4AQ1ARA R4Q8[[[< G4]]] > R4Q4ARRQ1A <R4Q8B4 "
  17. 170 A1J$=AC$+"R8 <RRBR> Q4CQ1CRC R4Q8[[[<<B4]]]>> R4Q4CRRQ1C<<R8Q8F4 "
  18. 180 A2L$=AL$+"Q8  <E1   >  Q4EF8F#32G32RFE DRRCR<BR>C#32D32R"
  19. 190 A2R$=AR$+"Q8  <C1   >  Q4CR8E      RDC<BRRAR GR BR      "
  20. 200 A2C$=AC$+"Q8 <<A1&A8>>   EF8F#32G32RFE DRRCR<]]]]GR     "
  21. 210 A2E$=AL$+"Q4  <B>CR<ABRGARFGRE RF>E<   DRBDR>C<DR>E D<D8 G#8 A8"
  22. 220 A2F$=AR$+"Q4  <G RR ERFEFRDCDCC#D>C<   RRGRR A RB>C<B<B8>D#8 E8"
  23. 230 A2G$=AC$+"Q8R8<B>CR<ABRGARFGRE RF>E<]]]]]ERR F RR A G<G8 G#8 A8"
  24. 240 A2H$=AL$+"Q4  <GAR>CRDRD#32E32R EER EEEE (GRE)4 G#32A32GF#E"
  25. 250 A2I$=AR$+"Q4  <RER GRAB>CR      CRD#CRCC (ERC)4     E8C#C  "
  26. 260 A2J$=AC$+"Q8<R8GAR>CRDRD#32E32R EER EEEE (GRE)4 G#32A32G   "
  27. 270 A2K$=AL$+"Q4   DRDR>C<<ARB32>C32RDDR<GG#AB >ARD# DRCR<AREG8G#R>D8"
  28. 280 A2M$=AR$+"Q4  <BRBR>G< ERG32 A32RBBR<GG#AB >ERC  ARGR ERCD8D#R A8"
  29. 290 A2N$=AC$+"Q8R8 DRDR>C<<ARB32>C32RDDR<GG#AB >ARD# DRCR<AREG8]]]]F8"
  30. 300 A2O$=AL$+"Q4  DRDR>C<<ARB32>C32RDDR<GG#AB>ARD#DRCR<ARGE8>CRC8  <A1"
  31. 310 A2P$=AR$+"Q4 <BRBR>G< ERG32 A32RBBR<GG#AB>ERC ARGR EREC8 GRG8   E1"
  32. 320 A2Q$=AC$+"Q8R8DRDR>C<<ARB32>C32RDDR<GG#AB>ARD#DRCR<ARGE8>CR]]]]<C1"
  33. 330 A3L$=AL$+"Q1    <<RRAR Q4> C8&CD &D2 [[[Q1 G#32A32ARAARAARAARARB8"
  34. 340 A3R$=AR$+"Q1    <<RRFR Q4  A8&AB &B2 [[[Q1>    R  FRRFRFFRFFRFRG8"
  35. 350 A3C$=AC$+"Q1]]] <<ARCR Q4  F8&FG &G2 [[[Q1>    R  RRRCRRCRCCRCRE8"
  36. 360 A3E$=AL$+"Q1    <<R RAR Q4>C8&CD &D2[[[Q1 G#32A32ARAARAARAARQ4<E8G8"
  37. 370 A3F$=AR$+"Q1    <<R RFR Q4 A8&AB &B2[[[Q1>   R  FRRFRFFRFFRQ4<<C8E8"
  38. 380 A3G$=AC$+"Q1]]] <<G#ACR Q4 F8&FG &G2[[[Q1>   R  RRRCRRCRCCRQ4<<A8>C8"
  39. 390 A3H$=AL$+"Q1    <<R RRA Q4>C8&CD &D2 [[Q4  RARRB4>CRR<Q8B8&B Q4GR"
  40. 400 A3I$=AR$+"Q1    <<R RRF Q4 A8&AB &B2 [[Q4> RERRG4 ARR Q8G8&G Q4DR"
  41. 410 A3J$=AC$+"Q1]]] <<G#ARC Q4 F8&FG &G2 [[Q4> RCRRE4 ERR Q8E8&E<Q4BR"
  42. 420 A3K$=AL$+"Q1    <<R RRA Q4>C8&CQ8D &D2  Q4[ <B4&B8>C4&C8D4"
  43. 430 A3M$=AR$+"Q1    <<R RRF Q4 A8&AQ8B &B2  Q4[  G4&G8 A4&A8B4"
  44. 440 A3N$=AC$+"Q1]]] <<G#ARC Q4 F8&FQ8G &G2  Q4[  E4&E8 F4&F8G4"
  45. 450 A4L$=AL$+"Q8    <E1&E2     F4G4":A4E$=AL$+"Q8 <E1  F4&F8G4&G8A#4" 
  46. 460 A4R$=AR$+"Q8    <C1&C2     C4D4":A4F$=AR$+"Q8 <C#1 D4&D8E4&E8F4"
  47. 470 A4C$=AC$+"Q8]]]<<A1&A2&A8[[F4G8":A4G$=AC$+"Q8]]<<A1&A8>F4&F8G4&G8A#8"
  48. 480 A4H$=AL$+"Q8    <A2&A4      [[>CRRR]]    <A2G2 "
  49. 490 A4I$=AR$+"Q8    <F2&F4      [[ ARRR]]     E2E2 "
  50. 500 A4J$=AC$+"Q8]]] <D2&D4&D8[[[[[>CR  ]]]]] <C2C2 "
  51. 510 A4K$=AL$+"Q8    <G4&G8A4&A8 D4  E8Q4D#ERFRGRG#RAA#8>C8"
  52. 520 A4M$=AR$+"Q8    <D1             C8Q4R CRRRDRR REF8  G8"
  53. 530 A4N$=AC$+"Q8]]]<<A#2[[>A4&A8D4  E8Q4D#ERFRGRG#RAA#8>  "
  54. 540 CL$="@21V8O4L16Q5" : CR$=CL$+"V3"
  55. 550 C1L$=CL$+"Q8  <B1>C1"
  56. 560 C1R$=CR$+"Q8R8<B1>C2&C4&C8"
  57. 570 C1E$=CL$+"Q8  D2&D4RRDR ED#RDCR<BARGFRERL32FGG#A"
  58. 580 C1F$=CR$+"Q8R8D2&D4RRDR ED#RDCR<BARGFRER        "
  59. 590 C1G$=CL$+"  (<B>CR)<A#32B32>CR<B>CR<B>CC#D FERCD<BR>CR<ABR>CR<B8"
  60. 600 C1H$=CR$+"R8(<B>CR)<A#32B32>CR<B>CR<B>CC#D FERCD<BR>CR<ABR>CR  "
  61. 610 C1I$=CL$+"   <EFGARBR>Q8C &C4&C8Q4< BR >DDRCCR<BBRAARGRFR"
  62. 620 C1J$=CR$+"R8 <EFGARBR>Q8C &C4]]]Q4<<BR >DDRCCR<BB>C<AA>E<G>D<F>>E"
  63. 630 C2L$=CL$+"Q8    DL64<C#C<BA#L16A8RR R2>>Q4DRDL64<C#C<BA#L16A8R2>>E8"
  64. 640 C2R$=CR$+"Q8]]]<AL64<G#GF#F L16D8RR R2> Q4ARAL64<G#GF#F L16D8R2>>C8"
  65. 650 C2E$=CL$+"Q8    DL64<C#C<BA#L16A8R4R2>>Q3ERR D#RRDRRCRR  AD#DC"
  66. 660 C2F$=CR$+"Q8]]]<AL64<G#GF#F L16D8R4R2>>Q3CRR<B RRARRGRR  AD#DC"
  67. 670 C3L$=CL$+"    G8&GA8G#32G32FD8DCD RDFRFGRGARABRB>CR<B>CC#D"
  68. 680 C3R$=CR$+"R8  G8&GA8G#32G32FD8DCD RDFRFGRGARABRB>CR<B>C   "
  69. 690 C3E$=CL$+"    >F8     CDRCDRCC#32D32RCDR A8RG# GFRCDR<B>CR<ABR >BR"
  70. 700 C3F$=CR$+"]]] >D4[[[[ CDRCDRCC#32D32RCDR A8RG# GFRCDR<B>CR<A]]]>GR"
  71. 710 C3G$=CL$+"    AG#GFRR<AG#GFRF>D8D8     FRDFRDE32F32RDFRD B8>C8"
  72. 720 C3H$=CR$+"R8  AG#GFRR<AG#GF]]]A8A4[[[[>FRDFRDE32F32RDFRD B8   "
  73. 730 C3I$=CL$+"Q8   [[ >D1        Q4 DDDDRDRDRDDR DDDD"
  74. 740 C3J$=CR$+"Q8R8 [[ >D2&D4&D8  Q4<AAAARARAGAAG#AAAA"
  75. 750 C4L$=CL$+"    F8GA8G#32G32FD8DC<GAR>CC# DG#32A32RCGR<A>FR<GA8>C8C#8"
  76. 760 C4R$=CR$+"R8  F8GA8G#32G32FD8DC<GAR>CC# DG#32A32RCGR<A>FR<GA8>C8"
  77. 770 C4E$=CL$+"    GRG8GARGR>C<A8>DR<D8 &D4 >DDRDRC<B8G8A8"
  78. 780 C4F$=CR$+"R8  GRG8GARGR>C<A8>DR<D8 &D4 >DDRDRC<B8G8  "
  79. 790 C4G$=CL$+"Q8   >DL64<C#C<BA# <L32AAB>C# > [[[ D2&D4 <B4&B8>C4&C8D4"
  80. 800 C4H$=CR$+"Q8]]] AL64<G#GF#F  <L32EF#G#A#> [[[ A2&A4  G4&G8 A4&A8B4"
  81. 810 C5L$=CL$+"Q2<    G>G<GGRGGRR>C<G8C#RL32 [[Q8D#EFF#  G4&G8F4&F8E4"
  82. 820 C5R$=CR$+"Q2< E8 G>G<GGRGGRR>C<G8C#RL32 [[Q8D#EFF#  G4&G8F4&F8E8"
  83. 830 C5E$=CL$+"[[<    C#4&C#8A4&A8G4 &G2A4G4"
  84. 840 C5F$=CR$+"[[<<A8>C#4&C#8A4&A8G4 &G2A4G8"
  85. 850 C5G$=CL$+"Q8<[[  F1E1"
  86. 860 C5H$=CR$+"Q8<    D1C1"
  87. 870 C5I$=CL$+"Q8<[[  D1  E2RGRR  <L32 GG#A>C EG"
  88. 880 C5J$=CR$+"Q8<   <A#1>C2RERR  <L32 DD#E A>C8"
  89. 890 '
  90. 900 B$="@29V9O2L16Q5"
  91. 910 B0$ =B$+"<R1 V6 D2&D8 F]F#]A>]DR]D"
  92. 920 B0E$=B$+"Q2CQ5DRDRDF4DRC<A>D8 Q2CQ5DRDRDF4DR Q2>D<Q5CQ2>C<<Q8D"
  93. 930 B0F$=B$+"Q2CQ5DRDRDF4DRC<G#AA#> Q2CQ5DRDRDF4 ARG8A8"
  94. 940 B1$ =B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >CC#DFRGRF8D>Q2DQ5<DG8A8"
  95. 950 B1E$=B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >CC#DF4  G#RF8>Q2G#Q5D<DGA"
  96. 960 B1F$=B$+"CC#DFRGRF8D>Q2DQ5<GFDC<A32A#32 >>C<<B8GA8FG8EF8]GQ2>D<Q8G#8"
  97. 970 B2$ =B$+"D8&DDRQ8<GG#A>Q5CRC8>C<C<A>C  DRRDRQ8<F#G8G#8A8>B<B>>C<C"
  98. 980 B2E$=B$+"Q3DD>Q5D8<C>C8<<B>B8<A>A<GFGG# AR>C8D<D>EG8AG#GFD<G#G "
  99. 990 B2F$=B$+" D8CDRF8DRGRDG#A>CD< FRFRD#F8DD#8CD8<A#>D#8"
  100. 1000 B2G$=B$+" D8CDRF8DRGRDG#A>CD< FRFRD#F8DE8CDR<A>C8<A2"
  101. 1010 B3$ =B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 D8&DDDR<FG R>Q2AQ5C#C<G>G<A>A"
  102. 1020 B3E$=B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 C#DR<D>EDR<FGRAR>CDF8"
  103. 1030 B3F$=B$+" D8&DD DRQ1FQ5<G&GGA8>C8C#8 [[G8FGRG>Q2GQ5<G8GAG]]]<FGG#A "
  104. 1040 B4$ =B$+"[ C8>Q2CQ5<CA#>C8C<C>Q2CQ5<A#>Q2CRCQ5<D#<A#>"
  105. 1050 B4$ =B4$+" C8>Q2CQ5<CA#>C8C<C>Q2CQ5<A#>Q2C<Q5CQ2GRG "
  106. 1060 B4E$=B$+"] C#8&C#C#<G#8&G#G#RF#F#8G#8B>CC#8&C#C#<G#8&G#G#FF#GG#RG#B8"
  107. 1070 B4F$=B$+"  DRG8D>D8<D>C8<DA32D32CDG8 CC#DEFRA>D8CR<DF8G8"
  108. 1080 B4G$=B$+"]<A#8&A#A#RAA#8A#RRRG8A8 >CRC8<A#>CRC8 Q3C#Q5C#8ERG8"
  109. 1090 '
  110. 1100 P1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC       CRCRRRRCRRCRRRCR  "
  111. 1110 Q1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC   @8V7GRGRRR>G<GRCG>RGR<GR"
  112. 1120 R1$= "@9V9 O1L16 CRRCRRRCRRCRRRRC       RRCRRCRRCRRCRRCC"
  113. 1130 S1$= "@9V9 O1L16 CRRRRRRRRRRRRRRR       RRRRRRRRRRRRCRCC"
  114. 1140 P2$= "@9V14O2L16 RRRRGRRRRGRRGRRR       RRRRGRRRRGRR>GRV4GG"
  115. 1150 R2$= "@9V14O2L16 RRRRGRRRRGRRGRRR  @8V6 RGRRGRRGRRGRGRV2GG"
  116. 1160 P3$= "@9V5 O6L16 RRFRRFFRFRRRRFFR       RFRRRFFRCRRRRRRF  "
  117. 1170 Q3$= "@9V5 O6L16 RRFRRFFRFRRRRFA32F32F <F>FRRRFFRCRRRRRRF  "
  118. 1180 R3$= "@9V5 O6L16 RRFRRFFRFRRRRFA32F32F  FRRFRRFRRFRRFFFF"
  119. 1190 P4$= "@6V9 O8L16 RCRCRRRRRRRCRRCR       RCRCRRRRRRRCRRRC"
  120. 1200 P5$= "@3V7 O3L16 RCRC>C<CRCR<GGRGR>CR   GCRC<C>CRCR>CCRCRCR"
  121. 1210 P6$= "@8V6 O1L16 GRGRRGRGR>G<GRRG>[[G]]<R GRGRRR>G<GRCG>RGR<GR"
  122. 1220 Q6$= "@8V6 O1L16 GRGRRGRGR>G<GRRG>GR< GR>B<GR>G<G>GRG<G>RGR<GR"
  123. 1230 R6$= "@8V7 O1L16 GRGRRGRGR>G<GRRG>GR< GR>B32B32B<RRG>B<G>BRB<GG>CR"
  124. 1240 SS1$="@9V7 O1L16 CRRRCRRRCRRCCRCC"
  125. 1250 SS2$="@9V14O2L16 RRRRRRRRRRRRGRRR"
  126. 1260 SS3$="@11V6O3L16 ((C[[C[[CR]]]])4)"
  127. 1270 BP1$="@9V7 O1L16 R1R2 RRRR%R2CR%L2CR"
  128. 1280 '
  129. 1290 'PLAY B2G$,A2K$,A2M$,A2N$,,,,R6$,P2$,P3$ :  END
  130. 1300 'PLAY B4$,A4L$,,,C5L$,C5R$,P1$,P2$,P3$,P4$,P5$ : END
  131. 1310 'PLAY B2E$,A2E$,A2F$,A2G$,C2L$,C2R$,S1$,BP1$ :  END
  132. 1320 'GOTO 1470'
  133. 1330 '
  134. 1340 PLAY ,,,,,,SS1$,SS2$
  135. 1350 PLAY     ,,,,,,P1$,P2$,P3$,P4$
  136. 1360 PLAY B0$ ,,,,,,P1$,P2$,Q3$,P4$
  137. 1370 PLAY B0E$,,,,,,P1$,P2$,P3$,P4$
  138. 1380 PLAY B1F$,,,,,,Q1$,P2$,Q3$,P4$
  139. 1390 PLAY B0E$,A1L$,A1R$,A1C$,,,P1$,P2$,P3$,P4$
  140. 1400 PLAY B0F$,A1E$,A1F$,A1G$,,,P1$,P2$,Q3$,P4$
  141. 1410 PLAY B1$ ,A1H$,A1I$,A1J$,,,P1$,P2$,P3$,P4$
  142. 1420 PLAY B2E$,A1L$,A1R$,A1C$,,,P1$,P2$,Q3$,P4$
  143. 1430 PLAY B1$ ,A1L$,A1R$,A1C$,C1L$,C1R$,P1$,P2$,P3$,P4$
  144. 1440 PLAY B1E$,A1E$,A1F$,A1G$,C1E$,C1F$,P1$,P2$,Q3$,P4$
  145. 1450 PLAY B1F$,A1H$,A1I$,A1J$,C1G$,C1H$,P1$,P2$,P3$,P4$
  146. 1460 PLAY B1E$,A1L$,A1R$,A1C$,C1I$,C1J$,Q1$,P2$,Q3$,P4$
  147. 1470 PLAY B2$ ,A2L$,A2R$,A2C$,C2L$,C2R$,S1$
  148. 1480 PLAY B2E$,A2E$,A2F$,A2G$,C2L$,C2R$,S1$,BP1$
  149. 1490 PLAY B2$ ,A2H$,A2I$,A2J$,C2L$,C2R$,P1$,P2$,P3$
  150. 1500 PLAY B2F$,A2K$,A2M$,A2N$,C2E$,C2F$,R1$,R2$,R3$
  151. 1510 PLAY B3$ ,A3L$,A3R$,A3C$,C3L$,C3R$,P1$,P2$,P3$,P4$,P5$
  152. 1520 PLAY B3E$,A3E$,A3F$,A3G$,C3E$,C3F$,P1$,P2$,Q3$,P4$,P5$
  153. 1530 PLAY B3$ ,A3H$,A3I$,A3J$,C3G$,C3H$,P1$,P2$,P3$,P4$,P5$
  154. 1540 PLAY B3E$,A3E$,A3F$,A3G$,C3I$,C3J$,R1$,R2$,R3$
  155. 1550 PLAY B3$ ,A3L$,A3R$,A3C$,C4L$,C4R$,P1$,P2$,P3$,P4$,P5$
  156. 1560 PLAY B2E$,A3E$,A3F$,A3G$,C4E$,C4F$,Q1$,P2$,Q3$,P4$,P5$
  157. 1570 PLAY B3$ ,A3H$,A3I$,A3J$,C3G$,C3H$,P1$,P2$,P3$,P4$,P5$
  158. 1580 PLAY B3F$,A3K$,A3M$,A3N$,C4G$,C4H$,P6$,P2$,Q3$,P4$,P5$
  159. 1590 PLAY B4$ ,A4L$,A4R$,A4C$,C5L$,C5R$,P1$,P2$,P3$,P4$,P5$
  160. 1600 PLAY B4E$,A4E$,A4F$,A4G$,C5E$,C5F$,P1$,P2$,Q3$,P4$,P5$
  161. 1610 PLAY B4F$,A4H$,A4I$,A4J$,C5G$,C5H$,P1$,P2$,P3$,P4$,P5$
  162. 1620 PLAY B4G$,A4K$,A4M$,A4N$,C5I$,C5J$,Q1$,P2$,Q3$,P4$,P5$
  163. 1630 PLAY B2$ ,A2L$,A2R$,A2C$,,,P6$,   ,P5$
  164. 1640 PLAY B2E$,A2E$,A2F$,A2G$,,,Q6$,   ,P5$
  165. 1650 PLAY B2$ ,A2H$,A2I$,A2J$,,,P6$,P2$,P5$
  166. 1660 PLAY B2G$,A2O$,A2P$,A2Q$,,,R6$,P2$,P5$
  167.